<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include virtual="users.inc.asp"-->
<!--#include virtual="search.inc.asp"-->
<style type="text/css">
label {
	height:19px;
	display:block;
}
input, select {
	height:19px;
	display:block;
}
select {
	width:200px;
	height:100px;
}
</style>
<%
if not chkadmin() then
	response.Write("</head><body>你没有权限上传资料！</body></html>")
	response.End()
end if
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("App_Data\MainDB.mdb")
set rs=server.createobject("adodb.recordset")
myid=request.QueryString("id")
rs.open "SELECT * FROM [Species] WHERE SpeciesID=" & myid,conn,3,3
if rs.eof then
%>
<title>查无植物</title>
</head>
<body>
查无植物
</body>
</html>
<%
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.End()
end if
%>
<title><%=rs("ChineseName") %></title>
</head>

<body>
<div>
<form action="addspecies.asp" method="post" name="form1" id="form1">
	<label for="ScientificName">学名</label>
	<input type="text" name="ScientificName" id="ScientificName" style="font-style:italic;" value="<%=rs("ScientificName") %>" />
	<label for="ChineseName">中文名</label>
	<input type="text" name="ChineseName" id="ChineseName" value="<%=rs("ChineseName") %>" />
	<label for="CommonName">俗名</label>
	<input type="text" name="CommonName" id="CommonName" value="<%=rs("CommonName") %>" />
	<label for="PopIntro">通俗简介</label>
	<textarea name="PopIntro" id="PopIntro" cols="45" rows="5"><%=rs("PopIntro") %></textarea>
	<label for="SciIntro">科学简介</label>
	<textarea name="SciIntro" id="SciIntro" cols="45" rows="5"><%=rs("SciIntro") %></textarea>
	<label for="material">质地</label>
	<select name="material" id="material" multiple="multiple">
		<option value="1" <%
			if ismatch(1,CInt(rs("material"))) then
				response.Write("selected=""selected""")
			end if
		%> >木本</option>
		<option value="2" <%
			if ismatch(2,CInt(rs("material"))) then
				response.Write("selected=""selected""")
			end if
		%> >草质藤本</option>
		<option value="3" <%
			if ismatch(3,CInt(rs("material"))) then
				response.Write("selected=""selected""")
			end if
		%> >草本</option>
		<option value="4" <%
			if ismatch(4,CInt(rs("material"))) then
				response.Write("selected=""selected""")
			end if
		%> >肉质</option>
		<option value="5" <%
			if ismatch(5,CInt(rs("material"))) then
				response.Write("selected=""selected""")
			end if
		%> >木质藤本</option>
		<option value="6" <%
			if ismatch(6,CInt(rs("material"))) then
				response.Write("selected=""selected""")
			end if
		%> >其他</option>
	</select>
	<label for="leaf">叶类</label>
	<select name="leaf" id="leaf" multiple="multiple">
		<option value="1" <%
			if ismatch(1,CInt(rs("leaf"))) then
				response.Write("selected=""selected""")
			end if
		%> >单叶</option>
		<option value="2" <%
			if ismatch(2,CInt(rs("leaf"))) then
				response.Write("selected=""selected""")
			end if
		%> >掌状复叶</option>
		<option value="3" <%
			if ismatch(3,CInt(rs("leaf"))) then
				response.Write("selected=""selected""")
			end if
		%> >羽状复叶</option>
		<option value="4" <%
			if ismatch(4,CInt(rs("leaf"))) then
				response.Write("selected=""selected""")
			end if
		%> >三出复叶</option>
		<option value="5" <%
			if ismatch(5,CInt(rs("leaf"))) then
				response.Write("selected=""selected""")
			end if
		%> >其他</option>
	</select>
	<label for="leafarrangement">叶序</label>
	<select name="leafarrangement" id="leafarrangement" multiple="multiple">
		<option value="1" <%
			if ismatch(1,CInt(rs("leafarrangement"))) then
				response.Write("selected=""selected""")
			end if
		%> >叶对生</option>
		<option value="2" <%
			if ismatch(2,CInt(rs("leafarrangement"))) then
				response.Write("selected=""selected""")
			end if
		%> >叶互生</option>
		<option value="3" <%
			if ismatch(3,CInt(rs("leafarrangement"))) then
				response.Write("selected=""selected""")
			end if
		%> >叶轮生</option>
		<option value="4" <%
			if ismatch(4,CInt(rs("leafarrangement"))) then
				response.Write("selected=""selected""")
			end if
		%> >叶簇生</option>
		<option value="5" <%
			if ismatch(5,CInt(rs("leafarrangement"))) then
				response.Write("selected=""selected""")
			end if
		%> >叶束生</option>
		<option value="6" <%
			if ismatch(6,CInt(rs("leafarrangement"))) then
				response.Write("selected=""selected""")
			end if
		%> >叶基生</option>
		<option value="7" <%
			if ismatch(7,CInt(rs("leafarrangement"))) then
				response.Write("selected=""selected""")
			end if
		%> >其他</option>
	</select>
	<label for="leafmaterial">叶质</label>
	<select name="leafmaterial" id="leafmaterial" multiple="multiple">
		<option value="1" <%
			if ismatch(1,CInt(rs("leafmaterial"))) then
				response.Write("selected=""selected""")
			end if
		%> >肉质</option>
		<option value="2" <%
			if ismatch(2,CInt(rs("leafmaterial"))) then
				response.Write("selected=""selected""")
			end if
		%> >纸质</option>
		<option value="3" <%
			if ismatch(3,CInt(rs("leafmaterial"))) then
				response.Write("selected=""selected""")
			end if
		%> >革质</option>
		<option value="4" <%
			if ismatch(4,CInt(rs("leafmaterial"))) then
				response.Write("selected=""selected""")
			end if
		%> >其他</option>
	</select>
	<label for="leafedge">叶形-边缘</label>
	<select name="leafedge" id="leafedge" multiple="multiple">
		<option value="1" <%
			if ismatch(1,CInt(rs("leafedge"))) then
				response.Write("selected=""selected""")
			end if
		%> >全缘</option>
		<option value="2" <%
			if ismatch(2,CInt(rs("leafedge"))) then
				response.Write("selected=""selected""")
			end if
		%> >有齿</option>
		<option value="3" <%
			if ismatch(3,CInt(rs("leafedge"))) then
				response.Write("selected=""selected""")
			end if
		%> >有裂</option>
		<option value="4" <%
			if ismatch(4,CInt(rs("leafedge"))) then
				response.Write("selected=""selected""")
			end if
		%> >其他</option>
	</select>
	<label for="leafshape">叶形-形状</label>
	<select name="leafshape" id="leafshape" multiple="multiple">
		<option value="1" <%
			if ismatch(1,CInt(rs("leafshape"))) then
				response.Write("selected=""selected""")
			end if
		%> >针形</option>
		<option value="2" <%
			if ismatch(2,CInt(rs("leafshape"))) then
				response.Write("selected=""selected""")
			end if
		%> >条形</option>
		<option value="3" <%
			if ismatch(3,CInt(rs("leafshape"))) then
				response.Write("selected=""selected""")
			end if
		%> >矩形</option>
		<option value="4" <%
			if ismatch(4,CInt(rs("leafshape"))) then
				response.Write("selected=""selected""")
			end if
		%> >正方形</option>
		<option value="5" <%
			if ismatch(5,CInt(rs("leafshape"))) then
				response.Write("selected=""selected""")
			end if
		%> >其他</option>
	</select>
	<label for="flowercolor">花色</label>
	<select name="flowercolor" id="flowercolor" multiple="multiple">
		<option value="1" <%
			if ismatch(1,CInt(rs("flowercolor"))) then
				response.Write("selected=""selected""")
			end if
		%> >白黄系</option>
		<option value="2" <%
			if ismatch(2,CInt(rs("flowercolor"))) then
				response.Write("selected=""selected""")
			end if
		%> >粉红系</option>
		<option value="3" <%
			if ismatch(3,CInt(rs("flowercolor"))) then
				response.Write("selected=""selected""")
			end if
		%> >蓝紫系</option>
		<option value="4" <%
			if ismatch(4,CInt(rs("flowercolor"))) then
				response.Write("selected=""selected""")
			end if
		%> >绿色系</option>
		<option value="5" <%
			if ismatch(5,CInt(rs("flowercolor"))) then
				response.Write("selected=""selected""")
			end if
		%> >其他</option>
	</select>
	<label for="flowershape">花型</label>
	<select name="flowershape" id="flowershape" multiple="multiple">
		<option value="1" <%
			if ismatch(1,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >唇形花</option>
		<option value="2" <%
			if ismatch(2,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >蝶形花</option>
		<option value="3" <%
			if ismatch(3,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >鹤形花或鸡冠形等动物形</option>
		<option value="4" <%
			if ismatch(4,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >花瓣多数(大于六)辐射对称</option>
		<option value="5" <%
			if ismatch(5,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >花瓣、裂片三或六</option>
		<option value="6" <%
			if ismatch(6,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >花瓣四或花冠裂片四</option>
		<option value="7" <%
			if ismatch(7,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >花瓣五或花冠裂片五</option>
		<option value="8" <%
			if ismatch(8,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >花很小组成穗状或其他</option>
		<option value="9" <%
			if ismatch(9,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >菊形花</option>
		<option value="10" <%
			if ismatch(10,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >漏斗状或喇叭状</option>
		<option value="11" <%
			if ismatch(11,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >有距花</option>
		<option value="12" <%
			if ismatch(12,CInt(rs("flowershape"))) then
				response.Write("selected=""selected""")
			end if
		%> >其他</option>
	</select>
	<label for="TaxonID">所属分类地位ID（属ID）：</label>
	<input type="text" name="TaxonID" id="TaxonID" />
	<input type="submit" name="submit" id="submit" value="提交，上传！" />
</form>
</div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
